home *** CD-ROM | disk | FTP | other *** search
/ The Guru Press Kit / The Guru Press Kit.iso / pc / theguru.dxr / 00047_hiagain.ls < prev    next >
Encoding:
Text File  |  2002-12-17  |  1.5 KB  |  34 lines
  1. global imageArray, gKeepCopying, wherearefiles, imageArrayNames, theText, theresthetext, whereistext, thetextfiles, theresAnImage, gListOfSelections, gCount, gPosters
  2.  
  3. on baCopyFilesProgress vFolderName, vDoc, vImagesFolder
  4.   whereToCopy = baSysFolder("desktop")
  5.   Ok = baCreateFolder(whereToCopy & vFolderName)
  6.   register(xtra("ProgressCopy"), "zmqtdnhmr68j")
  7.   if the platform contains "Mac" then
  8.     thetextcopy = whereToCopy & vFolderName & ":"
  9.     Ok = baCreateFolder(thetextcopy & vDoc)
  10.     wherearefiles = the moviePath & vImagesFolder & ":"
  11.     whereistext = the moviePath & vDoc & ":"
  12.     copyFolder = whereToCopy & vFolderName & ":"
  13.     copyfoldertext = thetextcopy & vDoc & ":"
  14.   else
  15.     thetextcopy = whereToCopy & vFolderName & "\"
  16.     Ok = baCreateFolder(thetextcopy & "\" & vDoc)
  17.     wherearefiles = the moviePath & vImagesFolder & "\"
  18.     whereistext = the moviePath & vDoc & "\"
  19.     copyFolder = whereToCopy & vFolderName & "\"
  20.     copyfoldertext = thetextcopy & vDoc & "\"
  21.   end if
  22.   if gListOfSelections.count > 0 then
  23.     repeat with x = 1 to gListOfSelections.count
  24.       oneFile = new(xtra("progresscopy"), 1, 100, 100)
  25.       vNum = gListOfSelections[x]
  26.       vlargeName = member("largeNames").text.line[vNum]
  27.       copyFile(oneFile, wherearefiles & vlargeName, copyFolder & vlargeName, 1, 1, 1)
  28.       put errorString(oneFile) into field "error"
  29.     end repeat
  30.     copyFile(oneFile, whereistext & "captions.doc", copyfoldertext & "captions", 1, 1, 1)
  31.   end if
  32.   go("timed")
  33. end
  34.